home *** CD-ROM | disk | FTP | other *** search
/ Softline PAY-CD / Softline PAY-CD(1994).iso / programm / allclear / demo / disk1 / examples / quality.cmp / TQM2B.ACL < prev    next >
Encoding:
Text File  |  1993-09-29  |  487 b   |  29 lines
  1. Pharmacy Prescription TQM Team
  2.  
  3. {*HIDE ;}
  4.  
  5. Start.
  6. Ward team decides to discharge patient.
  7. {*YESNO NO YES}
  8. Is lab work ready?;
  9.     Wait.
  10. Order is written.
  11. Is eligibility completed?;
  12.     Contact Physician.
  13. Are pages 1 & 2 signed?;
  14.     Contact Physician.
  15. Is entire form complete?;
  16.     Contact Physician.
  17. Is escort available?
  18.     (Yes)
  19.     >SEND
  20.     (No) Contact an RN with keys to dumbwaiter.
  21.     Is an RN available?;
  22.         Wait.
  23. Dumbwaiter available?;
  24.     Wait.
  25. -SEND
  26. Send to pharmacy.
  27. End.
  28.  
  29.